home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / amiga / modelers / graphtal.lzh / Graphtal.Amiga / Examples / 3D_Hilbert.lsys next >
Encoding:
Text File  |  1992-11-02  |  571 b   |  28 lines
  1. /*
  2.  * A tree-dimensional extension of the Hilbert curve.
  3.  *
  4.  * The Algorithmic Beauty of Plants, p. 20
  5.  */
  6.  
  7. lsystem Hilbert;
  8.  
  9. table hilbert {
  10.  
  11.   A -> B - F + C F C + F - D & F ^ D - F + & & C F C + F + B / /;
  12.   B -> A & F ^ C F B ^ F ^ D ^ ^ - F - D ^ | F ^ B | F C ^ F ^ A / /;
  13.   C -> | D ^ | F ^ B - F + C ^ F ^ A & & F A & F ^ C + F + B ^ F ^ D / /;
  14.   D -> | C F B - F + B | F A & F ^ A & & F B - F + B | F C / /;
  15.  
  16. };
  17.  
  18. attributes {
  19.   axiom co("coral") A;
  20.   derivation hilbert(3);
  21.  
  22.   angle 90;
  23.   eye    100, 50, 35;
  24.   lookat   0, 35, 35;
  25.  
  26.   coneres 7;
  27.   sphereres 7;
  28. };